home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 99 / 099.d81 / profiler boot (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1992-01-01  |  1.1 KB  |  35 lines
  1. 10 dv=peek(186):ifdv<8thendv=8
  2. 100 print"[147]":gosub160
  3. 120 print"[144]":print""
  4. 130 print "load";chr$(34);f$;chr$(34)","dv
  5. 140 print"run"
  6. 150 poke631,13:poke632,13:poke198,2:end
  7. 160 poke53280,0:poke53281,0
  8. 170 print"";
  9. 180 fori=1to9:print"[169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223]";:next:print""
  10. 190 fori=217to242:pokei,peek(i)or128:next
  11. 240 poke214,14:print"[145][155]";
  12. 270 gosub400:sys49152
  13. 280 print"[158][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
  14. 282 [129]i[178]1[164]3:[153]"(NULL)                                  (NULL)":[130]
  15. 284 [153]"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp"
  16. 290 [153][163]10)"1.cont (NULL)un (NULL)ow (NULL)rofiler"
  17. 300 [153][163]10)"2. cont(NULL)un left$igh (NULL)rofiler"
  18. 310 [153][163]10)"3. cont(NULL)uit to (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)
  19. 320 geta$:ifa$<"1"ora$>"3"then320
  20. 330 ifa$="1"thenf$="low profiler"
  21. 340 ifa$="2"thenf$="high profiler"
  22. 350 ifa$="3"thenf$="hello connect"
  23. 360 fori=10to0step-1:poke781,i:sys59903:next:return
  24. 400 fori=0to59:readx:poke49152+i,x:next:return
  25. 420 data 162,011,160,037,173,017,208
  26. 430 data 016,251,189,048,192,153,080
  27. 440 data 216,153,120,216,153,160,216
  28. 450 data 153,200,216,153,240,216,234
  29. 460 data 234,234,136,192,001,208,233
  30. 470 data 165,162,197,162,240,250,202
  31. 480 data 016,214,096,234,234,234,000
  32. 490 data 011,012,015,001,001,001,001
  33. 500 data 015,015,012,011
  34. 10000 open15,8,15,"s0:profiler boot":close15:save"profiler boot",8:end
  35.